home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / InetDial / MDR-Install < prev    next >
Encoding:
Text File  |  2001-03-21  |  31.7 KB  |  1,067 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Installation software for MDR INET_DIAL WWW Interface package
  4. ;
  5. ; $VER: INET_DIAL-Install 1.78 (21.03.01)
  6. ;
  7. ; ©Copyright 2001 MDR INTERFACES Ltd
  8. ;
  9. ;------------------------------------------------------------------------
  10. ;
  11. (onerror (CLEANUP))
  12.  
  13. (set #wrongversion
  14. (cat "You have an old version of the program 'Installer' "
  15.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  16.      "Please check your configuration!"
  17. ))
  18.  
  19. (set #welcome
  20. (cat "\nWelcome to the the Installation of the MDR INET_DIAL WWW Interface Package!"
  21. ))
  22.  
  23. (set #mdrdestdir-prompt "Please select the partition where the drawer 'MDR_INET' for the WWW Interface package should be created.")
  24. (set #mdrdestdir-help   "Typically, 'Work:' is selected as destination.")
  25.  
  26. (set #mdrbrow-prompt "Please select the Web Browser Programme.")
  27. (set #mdrbrow-help   "Typically, 'AWEB3:AWEB-II' is selected if the AWEB-II Web Browser is used.")
  28.  
  29. (set #mdrgenesis-prompt "Please select the Genesis Startup file.")
  30. (set #mdrgenesis-help   "Typically, 'SYS:Internet/Genesis' is selected if the OS3.9 + Genesisprefs update Stack is used.")
  31.  
  32. (set #mdrcable-prompt "Please select your Connection type.")
  33. (set #mdrcable-help   "Typically, 'DIAL-UP Modem' is selected if you have a Dial up modem.")
  34.  
  35. (set #mdrdestapa-prompt "Please select the Drawer where the APACHE Webserver is located.")
  36. (set #mdrdestapa-help   "Typically, 'Work:Apache' is selected as location.")
  37.  
  38. (set #mdrdestgg-prompt "Please select the Drawer where the GEEKS GADGETS are located.")
  39. (set #mdrdestgg-help   "Typically, 'Work:GG' is selected as location.")
  40.  
  41. (set #destdir-prompt    "\nPlease select the Drawer where %s should be installed.\n")
  42. (set #destdir-help      "If you have modified your installation, the Installer may not be able to find certain drawers. If you are not sure, keep with the default values.")
  43.  
  44. (set #browser-prompt "\nPlease select which Internet Browser you intend to use with INET_DIAL")
  45. (set #browser-help   "\nSelect the Internet Browser you wish to use. \n\nPlease remember to re-install INET_DIAL if you wish to change your Browser!")
  46.  
  47. (set #stack-prompt   "\nPlease select the TCP/IP stack installed on your Amiga")
  48. (set #stack-help     "\nSelect the TCP/IP stack you wish to use. \n\nPlease remember to re-install INET_DIAL if you wish to change the stack!")
  49.  
  50. (set #webserver-prompt "\nPlease select the Web Server software which you will use for CONTROL")
  51. (set #webserver-help "\nSelect the Web Server for the [optional] Control Applications. \n\nPlease remember to re-install INET_DIAL if you change your Web Server!")
  52.  
  53. (set #mdrdir-info       "the MDR_INET applications")
  54.  
  55. (set #installing        "Installing %s...")
  56.  
  57. (set #no-diskspace      "\nTo install the MDR INET_DIAL WWW Interface package into '%s', you need at least %ld bytes of free harddrive space!")
  58.  
  59. (set #startup-prompt    "\nSome lines need to be added to S:User-Startup for %s:\n\n%s")
  60. (set #startup-help      "The WWW Interface package won't work correctly without these lines!")
  61.  
  62. (set #ask-config        "\nThe MDR INET_DIAL WWW Interface package has now been installed. Do you want to set up the configuration for it?")
  63. (set #ask-config-help   "Without setting up the configuration after an installation or an update, you might run into problems later!")
  64.  
  65. (set #prefsave-prompt   "\nDo you want to keep the existing preferences for\n\n'%s'?")
  66. (set #prefsave-help     "If you don't keep existing preferences, they will be overwritten with default values!")
  67. ;
  68. (set #vernum (getversion))
  69. (set #os_ver (/ #vernum 65536))
  70. (set #os_rev (- #vernum (* #os_ver 65536)))
  71. ;
  72. (set #invernum @installer-version)
  73. (set #in_ver (/ #invernum 65536))
  74. (set #in_rev (- #invernum (* #in_ver 65536)))
  75. ;
  76. (if (>= #in_ver 44 ) (
  77.  (effect "center" "horizontal" $FF00FF $000000)
  78. ))
  79. ;
  80. ;------------------------------------------------------------------------
  81. ; Cleanup any temporary mess we created
  82. (procedure CLEANUP
  83.     ; Nothing to cleanup
  84.     (delete (tackon @default-dest ".tempinstall") (all) (optional "force"))
  85. ) ; CLEANUP
  86.  
  87. ;------------------------------------------------------------------------
  88. ; Obtain an installation path
  89. (procedure GETPATH #gp_envname #gp_default #gp_remdir #gp_msg #gp_help
  90.  
  91.     (set #gp_res "")
  92.     (while (= "" #gp_res)
  93.         (set #gp_res #gp_default)
  94.         (if (not (exists #gp_res (noreq)))
  95.           (
  96.             (if (= #gp_res "Work:")
  97.               (
  98.                 (set #gp_res "")
  99.                 (set #gp_default @default-dest)
  100.               )
  101.             ) ; if
  102.  
  103.             (if (<> "" #gp_envname)
  104.               (
  105.                 (set #gp_res (getenv (cat "MDR/Path_" #gp_envname)))
  106.  
  107.                 (if (AND (<> "" #gp_res) #gp_remdir)
  108.                   (
  109.                     ; Remove the "Internet" suffix
  110.                     (set #gp_res (pathonly #gp_res))
  111.                   )
  112.                 ) ; if
  113.               )
  114.               (
  115.                 (set #gp_res "")
  116.               )
  117.             ) ; if
  118.           )
  119.         ) ; if
  120.  
  121.         (if (OR (= "" #gp_res) (= @user-level 2))
  122.           (
  123.             ; We had a problem. So we need to ask the user!
  124.             (set #gp_res
  125.                 (expandpath
  126.                     (askdir
  127.                         (prompt #gp_msg)
  128.                         (help #gp_help)
  129.                         (default #gp_default)
  130.                     )
  131.                 )
  132.             )
  133.           )
  134.         ) ; if
  135.  
  136.         ; If the directory does not exist, retry!
  137.         (if (<> "" #gp_res)
  138.           (
  139.             (if (not (exists #gp_res (noreq)))
  140.                 (set #gp_res "")
  141.             ) ; if
  142.           )
  143.         ) ; if
  144.     ) ; while
  145.  
  146.     ; return the result!
  147.     (set #gp_res #gp_res)
  148.  
  149. ) ; GETPATH
  150. ;------------------------------------------------------------------------
  151. ; We can't handle this script without Installer 42.9 or better!
  152. (if (< @installer-version 2752521)
  153.   (
  154.     (message #wrongversion)
  155.     (exit (quiet))
  156.   )
  157. )
  158. ;
  159. ;------------------------------------------------------------------------
  160. ; intro
  161. (message "\nINET_DIAL" "\n\nWWW Interface software" "\n\n ©2000 MDR Interfaces Ltd" "\nDanehill, Sussex, Great Britain" "\n\nAuthor: Richard de Rivaz"
  162. "\n\nwww.mdr.co.uk" "\ntel: +44(0)1825-790294" "\nFax: +44(0)1825-790119" (all))
  163. ;
  164. (complete 2)
  165. ;
  166. (message "\n\nThis Installation Programme may be used for a" "\n\nFIRST TIME INSTALLATION" "\n\nor to" "\n\nUPGRADE an EXISTING INSTALLATION" "\n\n(not disturbing your existing settings!)" (all))
  167. ;
  168. (complete 3)
  169. ;
  170. (message "\nThe MDR INET_DIAL WWW Interface software is integrated with a Web Browser and Mailer, providing WWW and remote computer connection software, as well as a `dial-in' server for remote computers." "\n\nBefore proceeding, please therefore ensure that you have the following software pre-installed" "\n\nYAM Mailer and AWEB-II, VOYAGER or IBROWSE Web Browsers (Registered)" "\nFor DIAL-UP connection AMITCP, MIAMI or MIAMI DeLuxe (Registered) or OS3.9 GENESiS TCP/IP Stacks"(all))
  171. ;
  172. (message "\n\nDYNAMIC IP ADDRESSING" "\n\n\nPlease note that INET DIAL currently supports DIAL-UP DYNAMIC IP addressing with GENESIS, MIAMI & MIAMI DeLuxe TCP/IP Stacks." "\n\nDYNAMIC IP addressing is also supported with a Permanent Internet Connection." (all))
  173. ;
  174. (complete 4)
  175. ;
  176. (message "\n\nPlease note that INET_DIAL can also provide a local and remote equipment control function using MDR, X-10 protocols and AREXX." "\n\nMDR and X-10 control devices are separately available from MDR." "\n\nTo be able to use this facility you will need to install the APACHE web server software and one additional serial port for each protocol." (all))
  177. ;
  178. (message "\n\nINET_DIAL" "\n\nDOCUMENTATION" "\n\nFull Documentation is provided with this installation process. The files in HTML format are stored in MDR:DOCS/ and can be viewed using any Web Browser" (all))
  179. ;
  180. (complete 6)
  181. ;
  182. (message "INET_DIAL LICENCE""\n\nPlease note that, whilst every effort has been made to ensure that this software operates correctly, the software is provided on an `as is' basis licenced to the user. " "No representations or warranties are made with respect to the accuracy, reliability, performance, currentness, or operation of this software and information, and all use is at your own risk." "Neither MDR nor the author can accept any liability whatsoever for loss or consequential loss either of data or physical damage arising from the use of this software. Please click on `PROCEED' if you accept the terms of this licence." (all))
  183. ;
  184. (complete 8)
  185. ;------------------------------------------------------------------------
  186. ;
  187. (set finstall 1)
  188. ;
  189. (welcome)
  190. ;
  191. (complete 22)
  192. ;
  193. ;------------------------------------------------------------------------
  194.     ; assume a new installation
  195.     (set AddMDRAssign FALSE)
  196.     (set IsUpdate FALSE)
  197.  
  198.     ; First find the MDR_INET base
  199.  
  200.     (set #mdrdirbase (GETPATH "WWW Internet Package" "Work:" TRUE #mdrdestdir-prompt #mdrdestdir-help))
  201.  
  202.     ; We have to create a drawer "MDR_INET" there!
  203.     (set #mdrdir (tackon #mdrdirbase "MDR_INET"))
  204.  
  205.     ; If this is a new installation, we check the diskspace!
  206.       (
  207.         ; For a new setup, we should leave some space!
  208.         (if (< (getdiskspace #mdrdirbase) 2000000)
  209.             (abort (#no-diskspace #mdrdirbase 2000000))
  210.         )
  211.       )
  212.  
  213.       (
  214.         (makedir #mdrdir (infos))
  215.         (makedir (tackon #mdrdir "PREFS") (infos))
  216.         (makedir (tackon #mdrdir "LOGS") (infos))
  217.         (makedir (tackon #mdrdir "LOCKS") (infos))
  218.         (makedir (tackon #mdrdir "BACKUP") (infos))
  219.         (makedir (tackon #mdrdir "DOCS") (infos))
  220.         (makedir (tackon #mdrdir "LOCALE") (infos))
  221.         (makedir (tackon #mdrdir "MAILSTORE") (infos))
  222.         (makedir (tackon #mdrdir "AUTHORISATION") (infos))
  223.         (makedir (tackon #mdrdir "AREXX") (infos))
  224.         (makedir (tackon #mdrdir "BIN") (infos))
  225.         (makedir (tackon #mdrdir "PRINTBUFFER") (infos))
  226.         (makedir (tackon #mdrdir "TCPIP") (infos))
  227.         (makedir (tackon #mdrdir "TCPIP/L") (infos))
  228.         (makedir (tackon #mdrdir "TCPIP/BIN") (infos))
  229.         (makedir (tackon #mdrdir "EVENTS") (infos))
  230.         (makedir "SYS:PREFS/ENV-ARCHIVE/SANA2" (infos))
  231.       )
  232.  
  233.     (set @default-dest #mdrdir)
  234.  
  235. ;
  236. ;------------------------------------------------------------------------
  237. (set browser   (askchoice (choices "AWEB-II" "IBROWSE" "VOYAGER")
  238.                         (prompt #browser-prompt)
  239.                         (help #browser-help)
  240.                )
  241. )
  242. (if (= browser 0) (set mdrbrowser "AWEB-II"))
  243. (if (= browser 1) (set mdrbrowser "IBROWSE"))
  244. (if (= browser 2) (set mdrbrowser "VOYAGER"))
  245.  
  246. ;
  247. (if (= browser 0)
  248.     (
  249.        (set mdrbrowfile (ASKFILE
  250.                              (prompt #mdrbrow-prompt)
  251.                              (help #mdrbrow-help)
  252.                              (default "AWEB3:AWEB-II")
  253.                          )
  254.        )
  255.     )
  256. )
  257. ;
  258. (if (= browser 1)
  259.     (
  260.        (set mdrbrowfile (ASKFILE
  261.                              (prompt #mdrbrow-prompt)
  262.                              (help #mdrbrow-help)
  263.                              (default "IBROWSE:Ibrowse")
  264.                          )
  265.        )
  266.     )
  267. )
  268. ;
  269. (if (= browser 2)
  270.     (
  271.        (set mdrbrowfile (ASKFILE
  272.                              (prompt #mdrbrow-prompt)
  273.                              (help #mdrbrow-help)
  274.                              (default "VOYAGER:Voyager")
  275.                          )
  276.        )
  277.     )
  278. )
  279. ;------------------------------------------------------------------------
  280. (set stack    (askchoice (choices "AMITCP" "GENESIS" "MIAMI" "MIAMI DeLuxe")
  281.                         (prompt #stack-prompt)
  282.                         (help #stack-help)
  283.               )
  284. )
  285. ;
  286. (if (= stack 0) (
  287.                    (set mdrstack "AMITCP")
  288.                    (set mdrstick "not required")
  289.                 )
  290. )
  291. ;
  292. (if (= stack 1) (
  293.                    (set mdrstack "GENESIS")
  294.                    (set mdrstick (ASKFILE
  295.                                      (prompt #mdrgenesis-prompt)
  296.                                      (help #mdrgenesis-help)
  297.                                      (default "SYS:Internet/Genesis/Genesis")
  298.                                   )
  299.                    )
  300.                  )
  301. )
  302. ;
  303. (if (= stack 2) (
  304.                    (set mdrstack "MIAMI")
  305.                    (set mdrstick "not required")
  306.                 )
  307. )
  308. ;
  309. (if (= stack 3) (
  310.                    (set mdrstack "MIAMI DeLuxe")
  311.                    (set mdrstick "not required")
  312.                 )
  313. )
  314. ;------------------------------------------------------------------------
  315. (set webserver  (askchoice (choices "none" "APACHE")
  316.                            (prompt #webserver-prompt)
  317.                            (help #webserver-help)
  318.                 )
  319. )
  320. ;------------------------------------------------------------------------
  321. (set cable  (askchoice (choices "Dial-up Modem connection" "Permanent Connection (LAN)")
  322.                        (prompt #cable-prompt)
  323.                        (help #cable-help)
  324.             )
  325. )
  326. ;
  327. (if (= cable 0)
  328.     (set mdrcable "Dial-up")
  329. )
  330. ;
  331. (if (= cable 1)
  332.     (set mdrcable "Permanent")
  333. )
  334. ;------------------------------------------------------------------------
  335. (if (= webserver 0)
  336.     (
  337.      (set mdrwebserver "none installed")
  338.      (message "\n\nYou have selected\n\nWeb Browser = " mdrbrowser "\nWeb Browser location = " mdrbrowfile "\nTCP/IP Stack = " mdrstack "\nStack location = " mdrstick "\nWeb Server = " mdrwebserver "\nConnection type = " mdrcable "\nLocation of files = " #mdrdir "/"     (all))
  339.     )
  340. )
  341. ;
  342. (if (= webserver 1)
  343.     (
  344.      (set mdrwebserver "APACHE")
  345.      (set #mdrapabase (GETPATH "WWW Internet Package" "Work:Apache" TRUE #mdrdestapa-prompt #mdrdestapa-help))
  346.      (set #mdrggbase (GETPATH "WWW Internet Package" "Work:GG" TRUE #mdrdestgg-prompt #mdrdestgg-help))
  347.      (message "\n\nYou have selected\n\nWeb Browser = " mdrbrowser "\nWeb Browser location = " mdrbrowfile "\nTCP/IP Stack = " mdrstack "\nStack location = " mdrstick "\nWeb Server = " mdrwebserver "\nWebserver location = " #mdrapabase "\nConnection type = " mdrcable  "\nGeeks Gadgets location = " #mdrggbase "\nLocation of files = " #mdrdir "/" (all))
  348.     )
  349. )
  350. ;------------------------------------------------------------------------
  351. ;
  352. (message "\n\n\n\nthe MDR INET_DIAL WWW Interface files will now be copied" (all))
  353. ;
  354. ;
  355. (complete 24)
  356. ;
  357. (working (#installing "Read_Me!"))
  358. (copyfiles
  359.     (source "Read_me!")
  360.     (dest (tackon #mdrdir "" (infos)))
  361.     (optional "force" "askuser")
  362. )
  363. ;
  364. (working (#installing "Apache_Read_Me!"))
  365. (copyfiles
  366.     (source "Apache_Read_me!")
  367.     (dest (tackon #mdrdir "" (infos)))
  368.     (optional "force" "askuser")
  369. )
  370. ;
  371. (complete 26)
  372. ;
  373. (working (#installing "Inet_dial"))
  374. (copyfiles
  375.     (source "BIN/Inet_dial")
  376.     (dest (tackon #mdrdir "BIN" (infos)))
  377.     (optional "force" "askuser")
  378. )
  379. ;
  380. (working (#installing "MDRSocket"))
  381. (copyfiles
  382.     (source "BIN/MDRSocket")
  383.     (dest (tackon #mdrdir "BIN" (infos)))
  384.     (optional "force" "askuser")
  385. )
  386. ;
  387. (working (#installing "Mapdevice"))
  388. (copyfiles
  389.     (source "BIN/Mapdevice")
  390.     (dest (tackon #mdrdir "BIN" (infos)))
  391.     (optional "force" "askuser")
  392. )
  393. ;
  394. (complete 27)
  395. ;
  396. (working (#installing "MDRArexx"))
  397. (copyfiles
  398.     (source "BIN/MDRArexx")
  399.     (dest (tackon #mdrdir "BIN" (infos)))
  400.     (optional "force" "askuser")
  401. )
  402. ;
  403. (complete 28)
  404. ;
  405. (working (#installing "AutoMail"))
  406. (copyfiles
  407.     (source "BIN/AutoMail")
  408.     (dest (tackon #mdrdir "BIN") (infos))
  409.     (optional "force" "askuser")
  410. )
  411. ;
  412. (working (#installing "INET DIAL English text"))
  413. (copyfiles
  414.     (source "LOCALE/Inet_dial.english")
  415.     (dest (tackon #mdrdir "LOCALE") (infos))
  416.     (optional "force" "askuser")
  417. )
  418. ;
  419. (working (#installing "INET DIAL German text"))
  420. (copyfiles
  421.     (source "LOCALE/Inet_dial.deutsch")
  422.     (dest (tackon #mdrdir "LOCALE") (infos))
  423.     (optional "force" "askuser")
  424. )
  425. ;
  426. (working (#installing "AutoMail English text"))
  427. (copyfiles
  428.     (source "LOCALE/AutoMail.english")
  429.     (dest (tackon #mdrdir "LOCALE") (infos))
  430.     (optional "force" "askuser")
  431. )
  432. ;
  433. (working (#installing "AutoMail German text"))
  434. (copyfiles
  435.     (source "LOCALE/AutoMail.deutsch")
  436.     (dest (tackon #mdrdir "LOCALE") (infos))
  437.     (optional "force" "askuser")
  438. )
  439. ;
  440. (working (#installing "MDRArexx English text"))
  441. (copyfiles
  442.     (source "LOCALE/MDRArexx.english")
  443.     (dest (tackon #mdrdir "LOCALE") (infos))
  444.     (optional "force" "askuser")
  445. )
  446. ;
  447. (working (#installing "MDRArexx German text"))
  448. (copyfiles
  449.     (source "LOCALE/MDRArexx.deutsch")
  450.     (dest (tackon #mdrdir "LOCALE") (infos))
  451.     (optional "force" "askuser")
  452. )
  453. ;
  454. (complete 30)
  455. ;
  456. (working (#installing "MDRBackup"))
  457. (copyfiles
  458.     (source "BIN/MDRBackup")
  459.     (dest (tackon #mdrdir "BIN" (infos)))
  460.     (optional "force" "askuser")
  461. )
  462. ;
  463. (complete 32)
  464. ;
  465. (working (#installing "chown"))
  466. (copyfiles
  467.     (source "BIN/chown")
  468.     (dest (tackon #mdrdir "BIN"))
  469.     (optional "force" "askuser")
  470. )
  471. ;
  472. (complete 34)
  473. ;
  474. (working (#installing "chmod"))
  475. (copyfiles
  476.     (source "BIN/chmod")
  477.     (dest (tackon #mdrdir "BIN"))
  478.     (optional "force" "askuser")
  479. )
  480. ;
  481. (complete 36)
  482. ;
  483. (working (#installing "mapdevice"))
  484. (copyfiles
  485.     (source "BIN/mapdevice")
  486.     (dest (tackon #mdrdir "BIN"))
  487.     (optional "force" "askuser")
  488. )
  489. ;
  490. (complete 38)
  491. ;
  492. (working (#installing "mdr_reboot"))
  493. (copyfiles
  494.     (source "BIN/mdr_reboot")
  495.     (dest (tackon #mdrdir "BIN"))
  496.     (optional "force" "askuser")
  497. )
  498. ;
  499. (complete 40)
  500. ;
  501. (if (= stack 1)
  502.     (
  503.        (working (#installing "send_now! (MIAMI)"))
  504.        (copyfiles
  505.            (source "BIN/MIAMI/send_now!.MIAMI")
  506.            (dest (tackon #mdrdir "BIN") (infos))
  507.            (optional "force" "askuser")
  508.        )
  509.     )
  510. )   
  511. ;
  512. (if (= stack 2)
  513.     (
  514.        (working (#installing "send_now! (MIAMIDX)"))
  515.        (copyfiles
  516.            (source "BIN/MIAMI/send_now!.MIAMIDX")
  517.            (dest (tackon #mdrdir "BIN") (infos))
  518.            (optional "force" "askuser")
  519.        )
  520.     )
  521. )
  522. ;
  523. (if (= stack 0)
  524.     (
  525.         (working (#installing "send_now! (AMITCP)"))
  526.         (copyfiles
  527.            (source "BIN/AMITCP/send_now!")
  528.            (dest (tackon #mdrdir "BIN") (infos))
  529.            (optional "force" "askuser")
  530.         )
  531.     )
  532. )
  533. ;
  534. (complete 42)
  535. ;
  536. (working (#installing "Inet_dial_connect.awebrx"))
  537. (copyfiles
  538.     (source "AREXX/Inet_dial_connect.awebrx")
  539.     (dest (tackon #mdrdir "AREXX"))
  540.     (optional "force" "askuser")
  541. )
  542. ;
  543. (complete 44)
  544. ;
  545. (working (#installing "Inet_dial_disconnect.awebrx"))
  546. (copyfiles
  547.     (source "AREXX/Inet_dial_disconnect.awebrx")
  548.     (dest (tackon #mdrdir "AREXX"))
  549.     (optional "force" "askuser")
  550. )
  551. ;
  552. (complete 46)
  553. ;
  554. (working (#installing "Inet_dial_quit.awebrx"))
  555. (copyfiles
  556.     (source "AREXX/Inet_dial_quit.awebrx")
  557.     (dest (tackon #mdrdir "AREXX"))
  558.     (optional "force" "askuser")
  559. )
  560. ;
  561. (complete 48)
  562.  
  563. (working (#installing "mdr_mailrefresh.awebrx"))
  564. (copyfiles
  565.     (source "AREXX/mdr_mailrefresh.awebrx")
  566.     (dest (tackon #mdrdir "AREXX"))
  567.     (optional "force" "askuser")
  568. )
  569. ;
  570. (working (#installing "mdr_controlrefresh.awebrx"))
  571. (copyfiles
  572.     (source "AREXX/mdr_controlrefresh.awebrx")
  573.     (dest (tackon #mdrdir "AREXX"))
  574.     (optional "force" "askuser")
  575. )
  576. ;
  577. (working (#installing "mdr_logonrefresh.awebrx"))
  578. (copyfiles
  579.     (source "AREXX/mdr_logonrefresh.awebrx")
  580.     (dest (tackon #mdrdir "AREXX"))
  581.     (optional "force" "askuser")
  582. )
  583. ;
  584. (working (#installing "mdr_logoutrefresh.awebrx"))
  585. (copyfiles
  586.     (source "AREXX/mdr_logoutrefresh.awebrx")
  587.     (dest (tackon #mdrdir "AREXX"))
  588.     (optional "force" "askuser")
  589. )
  590. ;
  591. (complete 49)
  592.  
  593. (working (#installing "mdr_videorefresh.awebrx"))
  594. (copyfiles
  595.     (source "AREXX/mdr_videorefresh.awebrx")
  596.     (dest (tackon #mdrdir "AREXX"))
  597.     (optional "force" "askuser")
  598. )
  599. ;
  600. (complete 50)
  601.  
  602. (working (#installing "mdr_eventrefresh.awebrx"))
  603. (copyfiles
  604.     (source "AREXX/mdr_eventrefresh.awebrx")
  605.     (dest (tackon #mdrdir "AREXX"))
  606.     (optional "force" "askuser")
  607. )
  608. ;
  609. (complete 51)
  610.  
  611. (working (#installing "mdr_settingsrefresh.awebrx"))
  612. (copyfiles
  613.     (source "AREXX/mdr_settingsrefresh.awebrx")
  614.     (dest (tackon #mdrdir "AREXX"))
  615.     (optional "force" "askuser")
  616. )
  617. ;
  618. (complete 52)
  619.  
  620. (working (#installing "mdr_refresh.awebrx"))
  621. (copyfiles
  622.     (source "AREXX/mdr_refresh.awebrx")
  623.     (dest (tackon #mdrdir "AREXX"))
  624.     (optional "force" "askuser")
  625. )
  626. ;
  627. (complete 53)
  628.  
  629. (working (#installing "mdr_settings.awebrx"))
  630. (copyfiles
  631.     (source "AREXX/mdr_settings.awebrx")
  632.     (dest (tackon #mdrdir "AREXX"))
  633.     (optional "force" "askuser")
  634. )
  635. ;
  636. (complete 54)
  637.  
  638. (working (#installing "mdr_setvideo.awebrx"))
  639. (copyfiles
  640.     (source "AREXX/mdr_setvideo.awebrx")
  641.     (dest (tackon #mdrdir "AREXX"))
  642.     (optional "force" "askuser")
  643. )
  644. ;
  645. (complete 56)
  646. ;
  647. (working (#installing "mdr_register.awebrx"))
  648. (copyfiles
  649.     (source "AREXX/mdr_register.awebrx")
  650.     (dest (tackon #mdrdir "AREXX"))
  651.     (optional "force" "askuser")
  652. )
  653. ;
  654. (complete 58)
  655. ;
  656. (working (#installing "killhandler"))
  657. (copyfiles
  658.     (source "TCPIP/killhandler")
  659.     (dest (tackon #mdrdir "TCPIP"))
  660.     (optional "force" "askuser")
  661. )
  662. ;
  663. (complete 60)
  664. ;
  665. (working (#installing "letnet"))
  666. (copyfiles
  667.     (source "TCPIP/letnet")
  668.     (dest (tackon #mdrdir "TCPIP/BIN"))
  669.     (optional "force" "askuser")
  670. )
  671. ;
  672. (complete 62)
  673. ;
  674. (working (#installing "netfs-handler"))
  675. (copyfiles
  676.     (source "TCPIP/netfs-handler")
  677.     (dest (tackon #mdrdir "TCPIP/L"))
  678.     (optional "force" "askuser")
  679. )
  680. ;
  681. (complete 64)
  682. ;
  683. (working (#installing "netfs-server"))
  684. (copyfiles
  685.     (source "TCPIP/netfs-server")
  686.     (dest (tackon #mdrdir "TCPIP"))
  687.     (optional "force" "askuser")
  688. )
  689. ;
  690. (complete 66)
  691. ;
  692. (working (#installing "netmount"))
  693. (copyfiles
  694.     (source "TCPIP/netmount")
  695.     (dest (tackon #mdrdir "TCPIP"))
  696.     (optional "force" "askuser")
  697. )
  698. ;
  699. (complete 68)
  700. ;
  701. (working (#installing "remoteview"))
  702. (copyfiles
  703.     (source "TCPIP/remoteview")
  704.     (dest (tackon #mdrdir "TCPIP"))
  705.     (optional "force" "askuser")
  706. )
  707. ;
  708. (complete 69)
  709. ;
  710. (working (#installing "rhcslip.device"))
  711. (copyfiles
  712.     (source "TCPIP/rhcslip.device")
  713.     (dest (tackon #mdrdir "TCPIP"))
  714.     (optional "force" "askuser")
  715. )
  716. ;
  717. (complete 70)
  718. ;
  719. (working (#installing "remotecli"))
  720. (copyfiles
  721.     (source "TCPIP/remotecli")
  722.     (dest (tackon #mdrdir "TCPIP"))
  723.     (optional "force" "askuser")
  724. )
  725. ;
  726. (working (#installing "remoteprint"))
  727. (copyfiles
  728.     (source "TCPIP/remoteprint")
  729.     (dest (tackon #mdrdir "TCPIP"))
  730.     (optional "force" "askuser")
  731. )
  732. ;
  733. (complete 71)
  734. ;
  735. (working (#installing "remotearexx"))
  736. (copyfiles
  737.     (source "TCPIP/remotearexx")
  738.     (dest (tackon #mdrdir "TCPIP"))
  739.     (optional "force" "askuser")
  740. )
  741. ;
  742. (complete 72)
  743. ;
  744. (
  745.     (working (#installing "Configuration file"))
  746.     (copyfiles
  747.        (source "PREFS/mdr_internet")
  748.        (dest (tackon #mdrdir "PREFS"))
  749.        (optional "force" "askuser")
  750.     )
  751. )
  752. ;
  753. (complete 73)
  754. ;
  755. (working (#installing "documentation"))
  756. (copyfiles
  757.     (source "DOCS/mdr_inet_dial.html")
  758.     (dest (tackon #mdrdir "DOCS"))
  759.     (optional "force" "askuser")
  760. )
  761. ;
  762. (working (#installing "AmigActive logo"))
  763. (copyfiles
  764.     (source "DOCS/AAbutton1anim2.gif")
  765.     (dest (tackon #mdrdir "DOCS"))
  766.     (optional "force" "askuser")
  767. )
  768. ;
  769. (copyfiles
  770.     (source "DOCS/Logo_40wht.gif")
  771.     (dest (tackon #mdrdir "DOCS"))
  772.     (optional "force" "askuser")
  773. )
  774. ;
  775. (copyfiles
  776.     (source "DOCS/mdr_unavailable.html")
  777.     (dest (tackon #mdrdir "DOCS"))
  778.     (optional "force" "askuser")
  779. )
  780. ;
  781. ;
  782. (copyfiles
  783.     (source "DOCS/vh40.png")
  784.     (dest (tackon #mdrdir "DOCS"))
  785.     (optional "force" "askuser")
  786. )
  787. ;
  788. (complete 74)
  789. ;
  790. (working (#installing "inet_dial_netfs.jpg"))
  791. (copyfiles
  792.     (source "DOCS/inet_dial_netfs.jpg")
  793.     (dest (tackon #mdrdir "DOCS"))
  794.     (optional "force" "askuser")
  795. )
  796. ;
  797. (working (#installing "inet_dial_ezp.jpg"))
  798. (copyfiles
  799.     (source "DOCS/inet_dial_ezp.jpg")
  800.     (dest (tackon #mdrdir "DOCS"))
  801.     (optional "force" "askuser")
  802. )
  803. ;
  804. (working (#installing "inet_dial_samba.jpg"))
  805. (copyfiles
  806.     (source "DOCS/inet_dial_samba.jpg")
  807.     (dest (tackon #mdrdir "DOCS"))
  808.     (optional "force" "askuser")
  809. )
  810. ;
  811. (complete 75)
  812. ;
  813. (working (#installing "inet_dial_www.jpg"))
  814. (copyfiles
  815.     (source "DOCS/inet_dial_www.jpg")
  816.     (dest (tackon #mdrdir "DOCS"))
  817.     (optional "force" "askuser")
  818. )
  819. ;
  820. (complete 76)
  821. ;
  822. (working (#installing "inet_dial_status.jpg"))
  823. (copyfiles
  824.     (source "DOCS/inet_dial_status.jpg")
  825.     (dest (tackon #mdrdir "DOCS"))
  826.     (optional "force" "askuser")
  827. )
  828. ;
  829. (complete 77)
  830. ;
  831. (working (#installing "inet_dial_settings.jpg"))
  832. (copyfiles
  833.     (source "DOCS/inet_dial_settings.jpg")
  834.     (dest (tackon #mdrdir "DOCS"))
  835.     (optional "force" "askuser")
  836. )
  837. ;
  838. (complete 78)
  839. ;
  840. (working (#installing "inet_dial_mail.jpg"))
  841. (copyfiles
  842.     (source "DOCS/inet_dial_mail.jpg")
  843.     (dest (tackon #mdrdir "DOCS"))
  844.     (optional "force" "askuser")
  845. )
  846. ;
  847. (complete 79)
  848. ;
  849. (working (#installing "inet_dial_control.jpg"))
  850. (copyfiles
  851.     (source "DOCS/inet_dial_control.jpg")
  852.     (dest (tackon #mdrdir "DOCS"))
  853.     (optional "force" "askuser")
  854. )
  855. ;
  856. (complete 80)
  857. ;
  858. (working (#installing "mdr.jpg"))
  859. (copyfiles
  860.     (source "DOCS/mdr.jpg")
  861.     (dest (tackon #mdrdir "DOCS"))
  862.     (optional "force" "askuser")
  863. )
  864. ;
  865. (complete 82)
  866. ;
  867. (working (#installing "mdr_inet_dial.jpg"))
  868. (copyfiles
  869.     (source "DOCS/mdr_inet_dial.jpg")
  870.     (dest (tackon #mdrdir "DOCS"))
  871.     (optional "force" "askuser")
  872. )
  873. ;
  874. (complete 84)
  875. ;
  876. (working (#installing "apache.gif"))
  877. (copyfiles
  878.     (source "DOCS/apache.gif")
  879.     (dest (tackon #mdrdir "DOCS"))
  880.     (optional "force" "askuser")
  881. )
  882. ;
  883. (complete 86)
  884. ;
  885. (working (#installing "copyright notice"))
  886. (copyfiles
  887.     (source "DOCS/copyrights")
  888.     (dest (tackon #mdrdir "DOCS"))
  889.     (optional "force" "askuser")
  890. )
  891. ;
  892. (complete 88)
  893. ;
  894. (working (#installing "Picture"))
  895. (copyfiles
  896.     (source "DOCS/trossi1.jpg")
  897.     (dest (tackon #mdrdir "DOCS"))
  898.     (optional "force" "askuser")
  899. )
  900. ;
  901. (complete 90)
  902. ;
  903. ;------------------------------------------------------------------------
  904. ;create assign if does not exist
  905. ;
  906. (if (= "" (getassign "MDR" "adv"))
  907.     (Set AddMDRAssign TRUE)
  908. ) ; if
  909. ;
  910. (if AddMDRAssign
  911.   (
  912.     (makeassign "MDR" #mdrdir)
  913.     (makeassign "DSERVER" #mdrdirbase)
  914.   )
  915. )
  916. ;
  917. (complete 92)
  918. ;
  919. (if (= stack 0)
  920.     (
  921.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nPath MDR:BIN ADD" "\npath add AMITCP:bin" "\necho starting AMITCP" "\nexecute AMITCP:bin/startnet" "\nwait 5"))
  922.           (startup " ©2001 MDR Interfaces Ltd - TCP/IP STACK - startup #1"
  923.           (prompt (#startup-prompt "Startup of AMITCP TCP/IP Stack" cmd))
  924.           (help #startup-help)
  925.           (command cmd)
  926.        )
  927.     )
  928. )
  929. ;
  930. (if (= stack 1)
  931.     (
  932.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nPath MDR:BIN ADD" "\nPath AMITCP:BIN ADD" "\necho starting GENESIS" "\nrun >NIL: " mdrstick "\nwait 5"))
  933.           (startup " ©2001 MDR Interfaces Ltd - TCP/IP STACK - startup #1"
  934.           (prompt (#startup-prompt "Startup of Genesis TCP/IP Stack" cmd))
  935.           (help #startup-help)
  936.           (command cmd)
  937.        )
  938.     )
  939. )
  940. ;
  941. (if (= stack 2)
  942.     (
  943.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nPath MDR:BIN ADD" "\nAssign AMITCP: MDR:TCPIP" "\npath add AMITCP:bin" "\necho starting MIAMI" "\nrun >NIL: miami:miami" "\nwait 5"))
  944.           (startup " ©2001 MDR Interfaces Ltd - TCP/IP STACK - startup #1"
  945.           (prompt (#startup-prompt "Startup of MIAMI TCP/IP Stack" cmd))
  946.           (help #startup-help)
  947.           (command cmd)
  948.        )
  949.     )
  950. )
  951. ;
  952. (if (= stack 3)
  953.     (
  954.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nPath MDR:BIN ADD" "\nAssign AMITCP: MDR:TCPIP" "\npath add AMITCP:bin" "\necho starting MIAMI DeLuxe" "\nrun >NIL: miami:miamidx" "\nwait 5"))
  955.           (startup " ©2001 MDR Interfaces Ltd - TCP/IP STACK - startup #1"
  956.           (prompt (#startup-prompt "Startup of MIAMI DeLuxe TCP/IP Stack" cmd))
  957.           (help #startup-help)
  958.           (command cmd)
  959.        )
  960.     )
  961. )
  962. ;
  963. (if (= webserver 1)
  964.     (
  965.        (set cmd (cat "assign APACHE: " #mdrapabase "\nassign HTTP: APACHE:" "\nc:resident apache:bin/httpd pure" "\nif exists sys:s/delete_http_access.log" "\n echo deleting HTTP Access.log" "\n delete sys:s/delete_http_access.log" "\n if exists http:logs/access.log" "\n  delete http:logs/access.log" "\n endif" "\nendif" "\nif exists sys:s/delete_http_error.log" "\n echo deleting HTTP Error.log" "\n delete sys:s/delete_http_error.log" "\n if exists http:logs/error.log" "\n  delete http:logs/error.log" "\n endif" "\nendif" "\nassign GG: " #mdrggbase "\necho starting GEEK GADGETS" "\nrun >NIL: execute GG:sys/s/gg-startup" "\nwait 5" "\necho starting APACHE" "\nrun >NIL: rx apache:bin/starthttpd" "\nwait 5"))
  966.           (startup " ©2001 MDR Interfaces Ltd - APACHE & GEEK GADGETS - startup #2"
  967.           (prompt (#startup-prompt "Startup of the APACHE WEBSERVER & GEEK GADGETS" cmd))
  968.           (help #startup-help)
  969.           (command cmd)
  970.        )
  971.     )
  972. )
  973. ;
  974. (if (= webserver 0)
  975.     (
  976.        (set cmd (cat "echo no webserver installed" "\nwait 5"))
  977.           (startup " ©2001 MDR Interfaces Ltd - APACHE & GEEK GADGETS - startup #2"
  978.           (prompt (#startup-prompt "Startup of the APACHE WEBSERVER & GEEK GADGETS" cmd))
  979.           (help #startup-help)
  980.           (command cmd)
  981.        )
  982.     )
  983. )
  984. ;
  985. (if (= stack 2)
  986.     (
  987.        (set cmd (cat "stack 100000" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5"  "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  988.        (startup " ©2001 MDR Interfaces Ltd - INET DIAL - startup #3"
  989.            (prompt (#startup-prompt "Startup of INET_DIAL" cmd))
  990.            (help #startup-help)
  991.            (command cmd)
  992.        )
  993.     )
  994. )
  995. ;
  996. (complete 94)
  997. ;
  998. (if (= stack 3)
  999.     (
  1000.        (set cmd (cat "stack 100000" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  1001.        (startup " ©2001 MDR Interfaces Ltd - INET DIAL - startup #3"
  1002.            (prompt (#startup-prompt "Startup of INET_DIAL" cmd))
  1003.            (help #startup-help)
  1004.            (command cmd)
  1005.        )
  1006.     )
  1007. )
  1008. ;
  1009. (complete 95)
  1010. ;
  1011. (if (= stack 1)
  1012.     (
  1013.        (set cmd (cat "stack 100000" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  1014.        (startup " ©2001 MDR Interfaces Ltd - INET DIAL - startup #3"
  1015.           (prompt (#startup-prompt "Startup of INET_DIAL" cmd))
  1016.           (help #startup-help)
  1017.           (command cmd)
  1018.        )
  1019.     )
  1020. )
  1021. ;
  1022. (if (= stack 0)
  1023.     (
  1024.        (set cmd (cat "stack 100000" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  1025.        (startup " ©2001 MDR Interfaces Ltd - INET DIAL - startup #3"
  1026.           (prompt (#startup-prompt "Startup of INET_DIAL" cmd))
  1027.           (help #startup-help)
  1028.           (command cmd)
  1029.        )
  1030.     )
  1031. )
  1032. ;
  1033. ;
  1034. (complete 96)
  1035. ;
  1036. ;------------------------------------------------------------------------
  1037. ; Finally create some information about INET_DIAL
  1038. ;
  1039. (makedir "ENV:MDR" (infos))
  1040. (makedir "ENVARC:MDR" (infos))
  1041. (textfile (dest "ENV:MDR/Cable_MDR") (append mdrcable))
  1042. (textfile (dest "ENVARC:MDR/Cable_MDR") (append mdrcable))
  1043. (textfile (dest "ENV:MDR/Stack_MDR") (append mdrstack))
  1044. (textfile (dest "ENVARC:MDR/Stack_MDR") (append mdrstack))
  1045. (textfile (dest "ENV:MDR/Browser_MDR") (append mdrbrowser))
  1046. (textfile (dest "ENVARC:MDR/Browser_MDR") (append mdrbrowser))
  1047. (textfile (dest "ENV:MDR/Browfile_MDR") (append mdrbrowfile))
  1048. (textfile (dest "ENVARC:MDR/Browfile_MDR") (append mdrbrowfile))
  1049. (textfile (dest "ENV:MDR/Server_MDR") (append mdrwebserver))
  1050. (textfile (dest "ENVARC:MDR/Server_MDR") (append mdrwebserver))
  1051. (complete 97)
  1052. ;
  1053. (message "\nINET_DIAL is shareware. Please register for support and access to all functions." "\n\nUnregistered users are restricted to WWW and remote computer access and automatic mailchecking. The software is not time limited." "\n\nPlease send any bug reports to bug-report@mdr.co.uk quoting INET_DIAL serial number. Please direct any suggestions for further development to suggestions@mdr.co.uk subject 'inet_dial'." "\n\nenjoy!" (all))
  1054. (complete 98)
  1055. (message "\n\nINET_DIAL will be automatically started by the file `s:user-startup' after a reboot." "\n\nFirst time users will then be invited to configure their system.""\n\nTo start INET_DIAL please therefore remove all removeable disks from your computer and reboot after exiting installer!" (all))
  1056. (complete 100)
  1057. ;------------------------------------------------------------------------
  1058. ;
  1059. (CLEANUP)
  1060. (exit)
  1061. ;
  1062. ;------------------------------------------------------------------------
  1063. ;
  1064. ; *** EOT ***
  1065. ;------------------------------------------------------------------------
  1066. ;
  1067.